COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	BEGIN
C00003 ENDMK
C⊗;
BEGIN
INTEGER PTRCHN,DSKCHN,DUMMY,PTREOF,VAL;
STRING file;

PTRCHN ← GETCHAN;
OPEN(PTRCHN,"PTR",'10,'17,0,DUMMY,DUMMY,PTREOF);
DSKCHN ← GETCHAN;
OPEN(DSKCHN,"DSK",'10,0,'17,DUMMY,DUMMY,DUMMY);
PRINT("OUTPUT FILE NAME: "); FILE ← INCHWL;
ENTER(DSKCHN,FILE,DUMMY);

DO VAL ← WORDIN(PTRCHN) UNTIL VAL≠0; COMMENT EAT LEADING NULLS;

DO BEGIN
    WORDOUT(DSKCHN,VAL);
    VAL ← WORDIN(PTRCHN);
   END UNTIL PTREOF;

CLOSE(DSKCHN);

END